﻿Public Class AGREGAReMPLEADOS
    Dim rs As ADODB.Recordset ' CREAMOS UN OBJETO  RS  DE TIPO ADO PARA LA CONECCION 
    Dim sql As String 'CREAMOS UN VALOR SQL DE TIPO CADENA PARA LOS DIFERENTES PROCESOS DE DATOS DE LA CONECCION DE LA BD (INSERTAR, SELECIONAR)  
    Dim codigo As Integer = 0
    Dim codi_cargo As String ' CREAMOS UN VALOR  COD_CARGO DE TIPO CADENA 
    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
        Try
            sql = "INSERT INTO  EMPLEADOS (CODI_EMPLEADO,NOMBRE_EMPLEADO , MATE_EMPLEADO, PATE_EMPLEADO, FENA_EMPLEADO, SEXO_EMPLEADO,TELF_EMPLEADO , " & _
                 " DIRE_EMPLEADO, DNI_EMPLEADO,FEIN_EMPLEADO, CODI_CARGO) VALUES ('" & txtCodigo.Text & "', '" & txtNombre.Text & "', '" & txtAPaterno.Text & "', '" & txtAMaterno.Text & "', '" & DateFechaN.Value.ToString & "', '" & CmbSExo.SelectedItem.ToString & "', '" & txtTelefono.Text & "', '" & txtDireccion.Text & "', '" & txtDNI.Text & "', '" & DateFEchaRegistro.Value.ToString & "','""')"
            'NOS PERMITE INSERTAR DATOS DEL EMPLEADO A LA TABLA  EMPLEADOS 
            rs = coneccion.Execute(sql) ' NOS PERMITE EJECUTAR LA CONECCION CON LOS DATOS QUE SE HAN GENERADO
        Catch ex As Exception
            MsgBox("El Usuario ya Existe", MsgBoxStyle.Exclamation) 'SI AL INSERTAR LOS DATOS A LA TABLA EMPLEADOS ESTOS YA EXISTEN TE SALDRA DICHO MENSAJE 
        End Try
        Me.Dispose() 'PERMITE LIMPIAR TODOS LOS DATOS INGRESADOS Y NOS PERMITE SALIR DE LA APLICACION ACTUAL 
    End Sub

    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        Dispose() 'NOS PERMITE LIMPIAR TODOS LOS DATOS INGRESADOS Y NOS PERMITE SALIR DE LA APLICAION ACTUAL
    End Sub

    Private Sub btnLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLimpiar.Click
        txtNombre.Text = "" ' LIMPIAR EL TEXTO NOMBRE
        txtAPaterno.Text = "" ' LIMPIA EL TEXTO APELLIDO PATERNO
        txtAMaterno.Text = "" ' LIMPIA EL TEXTO DEL APELLIDO MATERNO
        txtDireccion.Text = "" ' LIMPIA EL TEXTO DE LA DIRECCION
        txtDNI.Text = "" ' LIMPIA EL TEXTO DEL DNI
        txtTelefono.Text = "" ' LIMPIA EL TEXTO DEL TELEFONO
    End Sub

    Private Sub AGREGAReMPLEADOS_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        sql = "SELECT CARGO FROM CARGO" ' NOS PERMITE SELECCIONAR EL CAMPO  CARGO DE LA TABLA CARGO PARA UNA RESPECTIVA CONSULTA
        rs = coneccion.Execute(sql) 'PERMITE EJECUTAR LA CONECCION 
        While rs.EOF <> True 'RS.EOF NOS RETORNA UN VALOR BOOLEANO DE TIPO FALSE ESTO SE MANTENDRA SIEMPRE EN CUANDO EXISTA LOS DATOS CONSULTADOS  
            If rs.EOF = True Then ' SI  EL BOOLEAN ES VERDADERO ESTE SALDRA DEL BUCLE 
                Exit While
            End If
            Cargob.Items.Add(rs.Fields(0).Value) 'ESTO NOS PERMITE AGREGAR AL COMBOBOX CARGO LOS VALORES OBTENIDOS DE LA COLUMNA DE LA TABLA CARGO
            rs.MoveNext() 'ESTE NOS PERMITE PASAR DE UNA  FILA  LA SIGUIENTE FILA
        End While

    End Sub

    Private Sub Cargob_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cargob.SelectedIndexChanged
        Dim cargos As String ' CREAMOS EL VALOR CARGOS DE TIPO CADENA 
        cargos = Cargob.SelectedItem.ToString ' AQUI LE ENVIAMOS EL VALOR SELECCIONADA EN EL COMOBOX CARGOB
        sql = "SELECT CARGO, CODI_CARGO FROM(CARGO) WHERE (CODI_CARGO = '" & cargos & "')"
        rs = coneccion.Execute(sql) ' PERMITE EJECUTAR LA CONECCION 
        If rs.EOF <> True Then ' SI  EL BOOLEAN ES VERDADERO ESTE SALDRA DEL BUCLE 
            rs.MoveFirst() 'NOS PERMITE MOVER EL PRIMER REGISTRO Y LEERLO 
            codi_cargo = rs.Fields(1).Value ' A LA CADENA CODI_CARGO LE PASAMOS EL VALOR DE LA COLUMNA OBTENIDA DE LA TABLA CARGO 
        End If

    End Sub
End Class